home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr28 / par300.zip / EXAMPL05.POM < prev    next >
Text File  |  1995-04-07  |  819b  |  31 lines
  1. ;
  2. ;   NOTE:  A quick-reference summary of POM commands appears in EXAMPL04.POM
  3. ;
  4. ;-------------------------------------------------------------------------------
  5. ;
  6. ;   Divide up the input line because it is more than 255 characters wide
  7. ;
  8. SPLIT    005-100    102-168    170-300
  9. ;
  10. ;   Extract the fields
  11. ;
  12. IF       LineNum = ""  THEN Name    = $FLUPC[ 1  35]
  13. IF       LineNum = "1" THEN Phone   = $FLINE[53  67]
  14. IF       LineNum = "2" THEN Descrip = $FLINE[ 1  76]
  15. ;
  16. ;   Remove surrounding spaces
  17. ;
  18. TRIM     Name     "B"  " "
  19. TRIM     Phone    "B"  " "
  20. TRIM     Descrip  "B"  " "
  21. ;
  22. ;   Build the line
  23. ;
  24. OUT      LineNum = ""  |"{Name}",
  25. OUT      LineNum = "1" |"{Phone}",
  26. OUTEND   LineNum = "2" |"{Descrip}"
  27. ;
  28. ;   Reset line counter
  29. ;
  30. IF       LineNum = "2" THEN LineNum = "" ELSE LineNum+
  31.